﻿Public Class FrmMeslek

	Public WithEvents Record As New Table("meslek")

	Sub New()
		InitializeComponent()
		Record.Bind(Me)
	End Sub

	Sub New(ByVal kod As String)
		Me.New()
		Record.Read(kod, "kod")
		Me.kod.Enabled = False
	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Record.Save()
	End Sub

End Class